﻿Public Class clsSysParam
    Public Function selectMesSwitch() As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Return DBacs.ExecuteSql(szSql, -1, "mes_switch")
    End Function

    Public Function selectMesWebSite() As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Return DBacs.ExecuteSql(szSql, -1, "mes_website")
    End Function

    Public Function setSysParam(_param_key As String, _param_value As String) As Integer
        Dim szSql As String = "update sf.t_sys_param set param_value = ? WHERE param_key = ? "
        Return DBacs.ExecuteUpdateSql(szSql, -1, _param_value, _param_key)
    End Function

End Class
